home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / graphics / raystorm / raystorm_ppc / arexx / simple.ray < prev   
Text File  |  1999-05-17  |  744b  |  43 lines
  1. /***************
  2.  * NAME:        simple.ray
  3.  * DESCRIPTION: Tutorial: Simple Scene
  4.  * AUTHOR:      Mike Hesser
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.     address COMMAND WaitForPort RAYSTORM
  14. END  
  15.  
  16. address RAYSTORM
  17.  
  18. 'SETCAMERA <6,1.5,-1.5> <0,0,0> <0,1,0>'
  19. 'SETWORLD [30,30,255]'
  20. 'POINTLIGHT <30,50,30> [255,255,255] SHADOW'
  21.  
  22. 'NEWSURFACE planesurf'
  23. 'DIFFUSE [155,0,0]'
  24. 'IMTEXTURE /textures/checker.itx <.1,.1,.1> <0,0,0> <2,2,2> 50 0 0'
  25.  
  26. 'NEWSURFACE spheresurf'
  27. 'REFLECT [255,255,255]'
  28.  
  29. 'SPHERE spheresurf <0,1,0> 1'
  30. 'PLANE planesurf'
  31.  
  32. 'STARTRENDER'
  33.  
  34. 'SAVEPIC simple.iff'
  35.  
  36. exit 0
  37.  
  38. error:
  39. say "Error" rc "in line" sigl ":"
  40. GETERRORSTR rc
  41. say result
  42. exit 0
  43.